| Number of participants | 31 subjects |
| Average age | 57 years |
| Percentage men | 71% |
| Total number of measurements | 552 |
| Median number of measurements / participant | 15 |
| Average number of measurements / participant | 18 |
| People with atrial fibrillation (AF) | 1 (3.2%) |
| People with other cardiac arrhythmia’s | 5 (16.1%) |
| Total number of heartbeats registered | 37,575 |
| Percentage men: | 71% |
| Avg age man: | 58.4 |
| Avg age women: | 56.4 |
| Oldest male participant: | 82.8 |
| Oldest female participant: | 79.3 |
| Total number of participants: | 31 |
| Average age: | 57 years |
| Participants >40 years: | 87% |
| Participants >60 years : | 42% |
| Country with most users: | GB |
| Total countries: | 2 |
| Most popular device: | samsung |
| Percentage iOS: | 29% |
| Percentage insufficient quality: | 11% |
| Total | ( 31 ) |
| History of Heart Failure | 1 |
| History of Diabetes | 3 |
| History of Artery Disease | 3 |
| History of AF | 1 |
| History of hypertension | 6 |
| History of Stroke | 16 |
| Already takes a bloodthinner | 15 |
| Amount of filled in questionnaires | 1 |
| Amount of blank questionnaires | 8 |
| AF patients | ( 1 ) / ( 31 ) |
| History of Heart Failure | 0 |
| History of Diabetes | 0 |
| History of Artery Disease | 0 |
| History of AF | 0 |
| History of hypertension | 1 |
| History of Stroke | 0 |
| Already takes a bloodthinner | 1 |
| Amount of filled in questionnaires | 1 |
| Amount of blank questionnaires | 0 |
plot_left_2_df <-
prescriptions %>%
select(paid_timestamp) %>%
mutate(date=as.POSIXct((paid_timestamp/1000) ,origin = "1970-01-01 00:00:00:000")) %>%
group_by(date=as.Date(date)) %>%
summarise(cnt=n()) %>%
ungroup %>%
mutate(cnt_=round(cnt/sum(cnt)*100,1)
,cnt__=round(cnt/sum(cnt),2))
ggplot(plot_left_2_df, aes(x=date, y=cnt, fill="#F8766D")) +
geom_bar(stat="identity")+theme_minimal() + theme(legend.position = "none")
peck_hour <-
prescriptions %>%
select(paid_timestamp) %>%
## https://www.freeformatter.com/epoch-timestamp-to-date-converter.html
mutate(hour=hour(as.POSIXct((paid_timestamp/1000) ,origin = "1970-01-01 00:00:00:000"))) %>%
group_by(hour) %>%
summarise(cnt=n()) %>%
arrange(-cnt) %>% head(1) %>% .[[1]]
rbind(`Peak activation - day:` = as.character(as.Date(plot_left_2_df %>% arrange(-cnt) %>% head(1) %>% .[[1]],origin='1970-01-01'))
,`Peak activation - Time (UTC):` = peck_hour
) %>%
kable() %>%
kable_styling(
bootstrap_options = c("hover", "condensed", "responsive"),
full_width = T,
font_size = 14)
| Peak activation - day: | 2021-08-25 |
| Peak activation - Time (UTC): | 16 |
| Peak measurements (UTC): | 12-2 PM |
| Total number of measurements received: | 552 |
| Max number of tot. measurements / day: | 22 |
| Most compliant user (%): | 493% |
| Average number of measurements/user: | 18 |
| Average compliance (%): | 131% |
| Amount of people with Atrial Fibrillation: | 1 |
| Amount of people with other cardiac arrhythmia’s: | 5 |
| Average heart rate of non-AF people (bpm): | 68 |
| Average heart rate during AF (bpm): | 68 |
| Measurements with symptoms (%): | 29% |
| AF-measurements with symptoms: | 0 |
| Most common symptom: | lightheaded |
| Heart rhythm | Frequency | % |
|---|---|---|
| sinus | 315 | 57.1 |
| extrasystoles_frequent | 84 | 15.2 |
| extrasystoles_isolated | 80 | 14.5 |
| quality_to_low | 59 | 10.7 |
| extrasystoles_big_episode | 10 | 1.8 |
| tachycardia | 2 | 0.4 |
| atrial_fibrillation | 1 | 0.2 |
| extrasystoles_trig_episode | 1 | 0.2 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 394 | 71.4 |
| lightheaded | 59 | 10.7 |
| NA | 39 | 7.1 |
| other | 30 | 5.4 |
| fatigue | 21 | 3.8 |
| palpitations | 4 | 0.7 |
| shortness_of_breath | 4 | 0.7 |
| chest_pains | 1 | 0.2 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 224 | 71.1 |
| NA | 30 | 9.5 |
| lightheaded | 23 | 7.3 |
| other | 22 | 7.0 |
| fatigue | 10 | 3.2 |
| palpitations | 4 | 1.3 |
| shortness_of_breath | 2 | 0.6 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 128 | 72.3 |
| lightheaded | 25 | 14.1 |
| fatigue | 9 | 5.1 |
| NA | 7 | 4.0 |
| other | 5 | 2.8 |
| shortness_of_breath | 2 | 1.1 |
| chest_pains | 1 | 0.6 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 1 | 100 |
| Average % of insufficient quality: | 11.03% |
| Minimum % of insufficient quality: | 0% |
| Maximum % of insufficient quality: | 100% |
| Meas. attempts | Percentage (%) |
|---|---|
| 1 | 71.7 |
| 2 | 5.1 |
| 3 | 1.1 |
| 4 | 0.2 |
| 5 | 0.2 |
| NA | 21.7 |
| Activity context | Insufficient quality distribution (%) |
|---|---|
| sitting | 74.6 |
| standing | 15.3 |
| NA | 3.4 |
| exercising | 1.7 |
| other | 1.7 |
| sleeping | 1.7 |
| walking | 1.7 |